home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 September & October
/
rerun-1986-09-10.d64
/
balance sheet
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
8KB
|
296 lines
10 poke808,234
20 printchr$(14):printchr$(8):print"[147]":poke53280,11:poke53281,11
30 printtab(8)"[158]** [208]ress [210]eturn **"
40 input"[145][145][145][145][197]nter [198]ile [206]ame";r$:r$=left$(r$,10)
50 x=96:r=2*x
60 dimd$(r),i$(r),d(r),c(r),b(r),u(r),h(r):n=0
70 input"[201]f [197]stablishing [206]ew [198]ile,[201]nsert (*)";y$
80 poke53280,6:poke53281,15
90 ify$="*"then110
100 ify$=""thengosub990
110 poke650,0:poke53280,6
120 poke53281,15
130 print"[147][151][194]alance [211]heet[146]"
140 print"[198]1 [198]orward [211]can [151]_ [210]everse [211]can"
150 print"[151][198]4 [197]nter [201]nformation"
160 print"[151][198]5 [194]alance [211]heet"
170 print"[151][198]6 [204]ast [208]age"
180 print"[151]= [212]otal [196]ebits/[195]redits"
190 print"[151]* [211]elect [206]ew [198]ile"
200 print"[151]^ [210]ename [198]ile"
210 print"[151]% [210]e-[197]stablish [198]ile"
220 print"[151][211] [211]ave"
230 print"[151][195] [195]hronological [211]ort"
240 print"[151][208] [208]rint"
250 print"[151]+ [197]xit"
260 gosub420
270 geta$:ifa$=""then270
280 ifa$="[133]"thenab=1:goto730
290 ifa$="_"thenab=n:goto730
300 ifa$="[138]"then480
310 ifa$="s"thengosub1090
320 ifa$="[139]"then1820
330 ifa$="[135]"then1500
340 ifa$="="then1900
350 ifa$="*"then clr:goto20
360 ifa$="^"then2070
370 ifa$="c"thengosub2170
380 ifa$="%"then2260
390 ifa$="p"thengosub2620
400 ifa$="+"then9999
410 goto110
420 print"[151]----------------------------------------"
430 print"[198]ile:[156] ";r$
440 printtab(21)"[151][145][197]ntries:[156]";n
450 print"[151][194]alance:[156]";b(n)
460 ifd$(n)>"a"thend$(n)="--"
470 printtab(21)"[151][145][204]ast [196]ate: [156]";d$(n):return
480 poke53280,6:ifn=x-1then720
490 print"[147][151][196]ata[160][197]ntry"
500 n=n+1:print"[147][197]nter [201]nformation[146]"
510 print"[197]ntry[160]#";n
520 print"[196]ate ";d$(n-1)
530 print"[201]tem":print"[196]ebit":print"[195]redit":b(n)=d(n)+c(n):b(n)=b(n)+b(n-1)
540 print"[194]alance [201]s: ";b(n):print""
550 input"";d$(n):ifd$(n)>="a"ord$(n)=""thend$(n)="--"
560 d$(n)=left$(d$(n),6)
570 input"";i$(n):ifi$(n)=""theni$(n)="--"
580 i$(n)=left$(i$(n),28)
590 input"";d(n):d(n)=-d(n)
600 input"";c(n)
610 b(n)=d(n)+c(n):b(n)=b(n)+b(n-1):b(n)=int(b(n)/0.01+0.5)*0.01
620 print"[194]alance [201]s:[155] "
630 print"[145][194]alance [201]s: ";b(n)
640 printtab(9)"[151][193]nother [197]ntry?[146] [217]/[206]"
650 printtab(9)"[151][193]bort[146] [193] [151][210]e-[197]nter[146] [210][151]"
660 geta$:ifa$<>"y"anda$<>"n"anda$<>"r"anda$<>"a"then660
670 ifa$="n"then110
680 ifa$="r"thenm=n:gosub1480
690 ifa$="a"thenm=n:gosub1480:goto110
700 ifn=x-1then720
710 goto500
720 print"[147]":printtab(15)"[151][198][201][204][197][160][198][213][204][204]":forzz=1to2000:next:goto110
730 poke53280,6:ifn=0then110
740 form=abton
750 poke650,128:gosub900
760 print"[151][198]1[146] [198]orward [211]can _[146] [210]everse [211]can"
770 ifm>nthen110
780 print"[198]5[146] [194]alance [211]heet"
790 print"[198]7[146] [210]eturn to [205]ain [205]enu"
800 print"[198]2[146] [205]ake a [195]hange"
810 print"[198]8[146] [197]rase this [197]ntry"
820 geta$:ifa$=""then820
830 ifa$="_"thenm=m-2:ifm<0then110
840 ifa$="[135]"thenpoke650,0:goto1500
850 ifa$="[139]"thenpoke650,0:goto1820
860 ifa$="[136]"then110
870 ifa$="[137]"thengosub1240
880 ifa$="[140]"thengosub1420:a=m:gosub1840:m=a
890 next:goto110
900 ifm>nthenreturn
910 print"[147][151][197]ntry #";m
920 print"[196]ate: ";d$(m)
930 print"[201]tem: ";i$(m)
940 print"[196]ebit: ";d(m)
950 print"[195]redit: ";c(m)
960 gosub2940
970 print"[194]alance: ";b(m)
980 print"[151]----------------------------------------":return
990 print"[147][151][204]oading[156]";r$
1000 open15,8,3,"0:"+r$+",seq"
1010 input#15,n
1020 form=1ton
1030 input#15,d$(m)
1040 input#15,i$(m)
1050 input#15,d(m)
1060 input#15,c(m)
1070 input#15,b(m)
1080 next:close15:return
1090 ifn=0thenreturn
1100 print"[147][151][217]ou selected [211]ave. [193]re you sure?"
1110 printtab(16)"[217]/[206]"
1120 geta$:ifa$<>"y"anda$<>"n"then1120
1130 ifa$="n"thenreturn
1140 print"[147][151][211]aving[156]";r$
1150 open15,8,4,"@0:"+r$+",s,w"
1160 print#15,n
1170 form=1ton
1180 print#15,d$(m)
1190 print#15,i$(m)
1200 print#15,d(m)
1210 print#15,c(m)
1220 print#15,b(m)
1230 next:close15:return
1240 poke650,0:ifn=0thenreturn
1250 gosub900:printtab(12)"[156]** [195]hange **[151]"
1260 print"1-[196]ate","2-[201]tem","3-[196]ebit","4-[195]redit"
1270 printtab(9)"[156][197]nter (1,2,3, or 4)[151]"
1280 forzz=1to400:next
1290 geta$:ifa$=""then1350
1300 ifa$="1"thengosub1370
1310 ifa$="2"thengosub1380
1320 ifa$="3"thengosub1390
1330 ifa$="4"thengosub1410
1340 return
1350 print"[145][145] "
1360 forzz=1to75:next:print"[145][145][145][145]":goto1270
1370 jj$="--":print:input"[206]ew [196]ate";jj$:d$(m)=jj$:m=m-1:return
1380 jj$="--":print:input"[206]ew [201]nformation";jj$:i$(m)=jj$:m=m-1:return
1390 jj=0:print:input"[206]ew [196]ebit (pos.only)";jj:d(m)=-jj:m=m-1:a=m:gosub1840
1400 m=a:return
1410 jj=0:print:input"[206]ew [195]redit";jj:c(m)=jj:m=m-1:a=m:gosub1840:m=a:return
1420 ifn=0thenreturn
1430 print"[147][151][193]re you sure you want to erase this?"
1440 printtab(18)"[217]/[206]"
1450 geta$:ifa$<>"n"anda$<>"y"then1450
1460 ifa$="n"thenm=m-1:return
1470 print"[147][151][213]pdating[160][198]ile"
1480 forv=mton:d$(v)=d$(v+1):i$(v)=i$(v+1):d(v)=d(v+1):c(v)=c(v+1):next
1490 n=n-1:m=m-1:return
1500 ifn=0then110
1510 gosub1860:xx=1:yy=19
1520 ifyy>nthenyy=n
1530 form=xxtoyy:ifm>x-1then110
1540 print"[151]";m:print"[145]"d$(m)
1550 d(m)=-d(m):ifd(m)=0then1800
1560 printtab(10)"[145]"d(m)
1570 d(m)=-d(m):ifc(m)=0then1810
1580 printtab(19)"[145][151]"c(m)
1590 ifd(m)=0andc(m)=0then1780
1600 printtab(29)"[145]"b(m)
1610 next
1620 geta$:ifa$="[135]"then1710
1630 ifa$="[136]"then110
1640 ifa$="[139]"then1820
1650 ifa$="r"thengoto1750
1660 ifa$="[133]"thenab=1:goto730
1670 ifa$="_"thenab=n:goto730
1680 ifa$="[138]"then480
1690 ifa$="="then1900
1700 goto1620
1710 xx=xx+19:yy=yy+19
1720 gosub1860:ifxx>=x-1then110
1730 ifyy-19>=nthen110
1740 goto1520
1750 input"[151]match which item number";k
1760 ifk<1then110
1770 print"[147]":poke53280,6:form=kton:goto750
1780 ifm<=nthenprinttab(29)"[145]"b(m)
1790 printtab(31)"[145]":goto1610
1800 printtab(11)"[145]":goto1570
1810 printtab(21)"[145]":goto1590
1820 print"[147]":poke53280,9:ifn<19then1500
1830 xx=n-13:yy=n+5:goto1720
1840 print"[147][151][213]pdating[160][194]alance"
1850 form=1ton:gosub2940:next:return
1860 print"[147]":poke53280,9:poke53281,15
1870 print"[195]ontinue-([198]5) [210]ead-([210]) [205]enu-([198]7)"
1880 print"[156][196][193][212][197][196][197][194][201][212][195][210][197][196][201][212][194][193][204][193][206][195][197]"
1890 return
1900 poke53280,6:ifn=0then110
1910 print"[147][151][196]ebits/[195]redits[146]"
1920 print"":gosub420
1930 print"":form=1ton:u(m)=c(m)+0
1940 printtab(8)"[151][145][212]otal [195]redits[160]are:"
1950 print"[145]"m
1960 u(m)=u(m)+u(m-1):next
1970 printtab(27)"[145]";u(n)
1980 print"":form=1ton:u(m)=d(m)+0
1990 form=1ton:u(m)=d(m)+0:u(m)=d(m)+0
2000 printtab(8)"[151][145][212]otal [196]ebits are:"
2010 print"[145]"m
2020 u(m)=u(m)+u(m-1):next
2030 printtab(27)"[145]";u(n)
2040 print"[208][210][197][211][211] [193][206][217][160][203][197][217][160][212][207][160][210][197][212][213][210][206] [212][207][160][205][197][206][213] "
2050 geta$:ifa$=""then2050
2060 goto110
2070 print"[147][151][193]re you sure you want to [210]ename"
2080 printtab(13)"this file?":printtab(17)"[217]/[206]"
2090 geta$:ifa$<>"y"anda$<>"n"then2090
2100 ifa$="n"then110
2110 input"[151][197]nter [206]ew [198]ile [206]ame[156]";v$
2120 v$=left$(v$,10)
2130 print"[147][151][1